inherited frmFuncao: TfrmFuncao
  Top = 97
  Caption = ''
  ClientHeight = 452
  ClientWidth = 579
  Font.Height = -12
  Font.Name = 'Arial'
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 415
    Width = 579
  end
  inherited Panel2: TPanel
    Width = 579
    Height = 415
    inherited Panel3: TPanel
      Width = 577
      Caption = 'Fun'#231#245'es'
      inherited GroupBox1: TGroupBox
        Left = 498
      end
    end
    inherited Panel4: TPanel
      Width = 577
      Height = 373
      object Label1: TLabel [0]
        Left = 30
        Top = 24
        Width = 59
        Height = 14
        AutoSize = False
        Caption = 'C'#243'digo'
      end
      object Label2: TLabel [1]
        Left = 30
        Top = 67
        Width = 59
        Height = 14
        AutoSize = False
        Caption = 'Nome'
      end
      inherited DBGrid1: TDBGrid
        Top = 156
        Width = 569
        TabOrder = 3
        TitleFont.Height = -12
        TitleFont.Name = 'Arial'
      end
      inherited SbHints: TStatusBar
        Top = 350
        Width = 569
      end
      object EDTFunCodigo: TDBEdit
        Left = 30
        Top = 38
        Width = 41
        Height = 21
        Hint = 'Codigo da fun'#231#227'o'
        AutoSize = False
        CharCase = ecUpperCase
        DataField = 'FUN_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EDTFunCodigoExit
      end
      object EDTFunNome: TDBEdit
        Left = 30
        Top = 80
        Width = 214
        Height = 21
        Hint = 'Nome da fun'#231#227'o '
        AutoSize = False
        CharCase = ecUpperCase
        DataField = 'FUN_NOME'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EDTFunNomeExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Funcoes
    Left = 16
  end
  object SQLC_Funcoes: TSQLClientDataSet
    CommandText = 'select * from FUNCOES where fun_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 80
    Top = 5
    object SQLC_FuncoesFUN_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'FUN_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_FuncoesFUN_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'FUN_NOME'
      Required = True
      Size = 35
    end
  end
end
